www.gusucode.com > 智睿政府网站管理系统 V2.1.0 > 智睿政府网站管理系统 V2.1.0\code\Include\PlS.asp
<% IF LePl<>"" then Dim Author,Content,mycode Author=Trim(Request.Form("Author")) Content=Trim(Request.Form("Content")) mycode = trim(request.form("code")) if Author="" or Content="" then Call Alert ("请填写完整再提交","-1") end if if mycode<>Session("getcode") then Call Alert ("您输入验证码错误","-1") end if set rs = server.CreateObject ("adodb.recordset") sql="select * from zhi_rui_g_Pl" rs.open sql,conn,1,3 rs.addnew rs("cli")=Request.Form("cli") rs("Ioid")=request.Form("Inid") rs("Author")=Author rs("Content")=Content rs("ip")=Request.ServerVariables("REMOTE_ADDR") rs("ViewFlag")=Plsh rs("PostTime")=Now() rs.update rs.close set rs=nothing response.redirect request.servervariables("http_referer") end if %>